home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d12
/
util307.arc
/
ALIGN.BAS
< prev
next >
Wrap
BASIC Source File
|
1987-03-04
|
1KB
|
47 lines
5 ON KEY (13) GOSUB 250
6 ON KEY (12) GOSUB 280
7 ON KEY (14) GOSUB 400
8 KEY (14) ON
10 PRINT"I.B.M.DISK DRIVE ALIGNMENT PROGRAM"
16 INPUT "PRESS ENTER TO CONTINUE",A$
20 DOR=&H3F2:SR=&H3F4:FD=&H3F5
30 OUT DOR,32
40 OUT DOR,37
50 OUT FD,3
60 OUT FD,&HCF
70 OUT FD,7:REM RECALIBRATE HEAD
80 OUT FD,1
90 FOR I=1 TO 500:NEXT I
100 PRINT "HEAD HAS NOW RECALIBRATED TO TRACK ZERO"
105 CLS
110 TRK=0
120 PRINT "HEAD IS NOW AT TRACK ";TRK
130 PRINT "PRESS RIGHT ARROW TO STEP IN, PRESS LEFT ARROW TO STEP OUT "
131 PRINT "OR PRESS DOWN ARROW TO RECALIBRATE"
140 KEY (13) ON
150 KEY (12) ON
160 OUT DOR,37
170 LOCATE 1,1
180 GOTO 120
190 END
250 TRK=TRK+1
255 IF TRK>39 THEN BEEP:TRK=39
260 GOSUB 300
265 RETURN
280 TRK=TRK-1
285 IF TRK<0 THEN BEEP:TRK=0
290 GOSUB 300
295 RETURN
300 KEY (13) OFF:KEY (12) OFF
301 OUT DOR,37
305 OUT FD,15
310 OUT FD,1
320 OUT FD,TRK
330 FOR I=1 TO 50:NEXT I
340 RETURN
400 OUT FD,7
410 OUT FD,1
415 TRK=0
420 FOR I=1 TO 500:NEXT I
430 RETURN